﻿Public Class clsLxjcInfo

    Public Function insert(en As entity_lxjcInfo) As Integer
        Dim sql As String = String.Empty
        Dim rtn As Integer
        DBacs.BeginTransaction()
        Try
            sql &= "INSERT INTO sf.b_prod_lxjc_info(factory_id,prod_id,project_name,control_area,initial_spec,final_spec,model,
            jl_type,experimental_pressure_vlaue ,support_model_all_count ,support_model_no ,check_date ,
            plane_dimension,diameter_mesopore,perpendicularity_side_surface,
            support_model_height ,support_model_smooth ,lateral_deformation ,residual_after_detection ,
            horizontal_offset_Measured_value ,horizontal_offset_Maximum ,vertical_stiffness ,yield_force ,post_yield_stiffness ,
            equivalent_stiffness ,equivalent_damping_ratio ,shear_modulus ,
            vertical_stiffness_standard ,yield_force_standard ,post_yield_stiffness_standard ,
            equivalent_stiffness_standard ,equivalent_damping_ratio_standard ,design_area ,
            vertical_stiffness_result ,yield_force_result ,post_yield_stiffness_result ,equivalent_stiffness_result ,equivalent_damping_ratio_result ,
            total_thickness_rubber_layer ,experimental_temperature ,judgment_mechanical_properties ,
            lead_core_height ,lead_core_weight ,lead_core_factory ,lead_free_conversion ,judgment_basis ,detection_judgment ,
            warehousing_area ,mould_number ,plate_number ,up_flb_number ,down_flb_number ,check_address ,check_bz ,note ,operator, update_time,status) "
            sql &= "VALUES ( ?, ? ,? , ? , ? , ? , ? ,? , ? , ? , ? , ? ,?, ?, ?, ?, ? , ? , ? , ? , ? ,? , ? , ? ,? , ? , ? ,? , ? , ? ,? , ? , ? ,
                ? , ? , ? , ? , ? ,? , ? , ? ,? , ? , ? , ? , ? ,? ,? , ? , ? ,? , ? , ? , ? , ? ,? ,(SELECT CURRENT_TIMESTAMP(6)) ,?)"
            With en
                rtn = DBacs.ExecuteUpdateSql(sql, -1, .factory_id, .prod_id, .project_name, .control_area, .initial_spec, .final_spec, .model,
                .jl_type, .experimental_pressure_vlaue, .support_model_all_count, .support_model_no, .check_date,
                .plane_dimension, .diameter_mesopore, .perpendicularity_side_surface,
                .support_model_height, .support_model_smooth, .lateral_deformation, .residual_after_detection,
                .horizontal_offset_Measured_value, .horizontal_offset_Maximum, .vertical_stiffness, .yield_force, .post_yield_stiffness,
                .equivalent_stiffness, .equivalent_damping_ratio, .shear_modulus,
                .vertical_stiffness_standard, .yield_force_standard, .post_yield_stiffness_standard,
                .equivalent_stiffness_standard, .equivalent_damping_ratio_standard, .design_area,
                .vertical_stiffness_result, .yield_force_result, .post_yield_stiffness_result, .equivalent_stiffness_result, .equivalent_damping_ratio_result,
                .total_thickness_rubber_layer, .experimental_temperature, .judgment_mechanical_properties,
                .lead_core_height, .lead_core_weight, .lead_core_factory, .lead_free_conversion, .judgment_basis, .detection_judgment,
                .warehousing_area, .mould_number, .plate_number, .up_flb_number, .down_flb_number, .check_address, .check_bz, .note, .ope, "0")
            End With

            'If en.judgment_mechanical_properties.Contains("合格") Then
            '    sql = String.Empty
            '    sql &= "update sf.b_prod_info set update_time=(SELECT CURRENT_TIMESTAMP(6)),"
            '    sql &= "b_pgd_lx_details_sys_id=?, status=? "
            '    sql &= "where factory_id = ? and prod_id = ?"
            '    rtn = DBacs.ExecuteUpdateSql(sql, -1, "11", g_factory_id, en.prod_id)
            'End If
            DBacs.CommitTransaction()
        Catch ex As Exception
            rtn = -2
            DBacs.RollbackTransaction()
        End Try
        Return rtn
    End Function

    Public Function insert(en As entity_lxjcInfo, sys_id As String) As Integer
        Dim sql As String = String.Empty
        Dim rtn As Integer

        DBacs.BeginTransaction()
        Try
            sql &= "INSERT INTO sf.b_prod_lxjc_info(factory_id,prod_id,project_name,control_area,initial_spec,final_spec,model,
            jl_type,experimental_pressure_vlaue ,support_model_all_count ,support_model_no ,check_date ,
            plane_dimension,diameter_mesopore,perpendicularity_side_surface,
            support_model_height ,support_model_smooth ,lateral_deformation ,residual_after_detection ,
            horizontal_offset_Measured_value ,horizontal_offset_Maximum ,vertical_stiffness ,yield_force ,post_yield_stiffness ,
            equivalent_stiffness ,equivalent_damping_ratio ,shear_modulus ,
            vertical_stiffness_standard ,yield_force_standard ,post_yield_stiffness_standard ,
            equivalent_stiffness_standard ,equivalent_damping_ratio_standard ,design_area ,
            vertical_stiffness_result ,yield_force_result ,post_yield_stiffness_result ,equivalent_stiffness_result ,equivalent_damping_ratio_result ,
            total_thickness_rubber_layer ,experimental_temperature ,judgment_mechanical_properties ,
            lead_core_height ,lead_core_weight ,lead_core_factory ,lead_free_conversion ,judgment_basis ,detection_judgment ,
            warehousing_area ,mould_number ,plate_number ,up_flb_number ,down_flb_number ,check_address ,check_bz ,note ,operator, update_time,status,b_pgd_mes_sys_id) "
            sql &= "VALUES ( ?, ? ,? , ? , ? , ? , ? ,? , ? , ? , ? , ? ,?, ?, ?, ?, ? , ? , ? , ? , ? ,? , ? , ? ,? , ? , ? ,? , ? , ? ,? , ? , ? ,
                ? , ? , ? , ? , ? ,? , ? , ? ,? , ? , ? , ? , ? ,? ,? , ? , ? ,? , ? , ? , ? , ? ,? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
            With en
                rtn = DBacs.ExecuteUpdateSql(sql, -1, .factory_id, .prod_id, .project_name, .control_area, .initial_spec, .final_spec, .model,
                .jl_type, .experimental_pressure_vlaue, .support_model_all_count, .support_model_no, .check_date,
                .plane_dimension, .diameter_mesopore, .perpendicularity_side_surface,
                .support_model_height, .support_model_smooth, .lateral_deformation, .residual_after_detection,
                .horizontal_offset_Measured_value, .horizontal_offset_Maximum, .vertical_stiffness, .yield_force, .post_yield_stiffness,
                .equivalent_stiffness, .equivalent_damping_ratio, .shear_modulus,
                .vertical_stiffness_standard, .yield_force_standard, .post_yield_stiffness_standard,
                .equivalent_stiffness_standard, .equivalent_damping_ratio_standard, .design_area,
                .vertical_stiffness_result, .yield_force_result, .post_yield_stiffness_result, .equivalent_stiffness_result, .equivalent_damping_ratio_result,
                .total_thickness_rubber_layer, .experimental_temperature, .judgment_mechanical_properties,
                .lead_core_height, .lead_core_weight, .lead_core_factory, .lead_free_conversion, .judgment_basis, .detection_judgment,
                .warehousing_area, .mould_number, .plate_number, .up_flb_number, .down_flb_number, .check_address, .check_bz, .note, .ope, "0", .b_pgd_mes_sys_id)
            End With

            If en.judgment_mechanical_properties.Contains("合格") Then
                sql = String.Empty
                sql &= "update sf.b_prod_info set update_time=(SELECT CURRENT_TIMESTAMP(6)),"
                sql &= "b_pgd_lx_details_sys_id=?, status=? "
                sql &= "where factory_id = ? and prod_id = ?"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, sys_id, "11", g_factory_id, en.prod_id)
            End If

            sql = String.Empty
            sql &= "update sf.b_pgd_mes set "
            sql &= " finish_count = finish_count + 1 "
            sql &= " where sys_id = ? "
            rtn = DBacs.ExecuteUpdateSql(sql, -1, sys_id)

            'sql = String.Empty
            'sql &= "select * from sf.b_pgd_lxjc_details where sys_id =  ?  "
            'Dim dtrt As DataTable = DBacs.ExecuteSql(sql, -1, sys_id)
            'If dtrt.Rows(0)("finish_count") < (dtrt.Rows(0)("finish_count") + 1) Then
            '    '更新生产计划
            '    sql = String.Empty
            '    sql &= "update sf.b_pgd_lxjc_details set "
            '    sql &= " finish_count = finish_count + 1 "
            '    sql &= " where sys_id = ? "
            '    rtn = DBacs.ExecuteUpdateSql(sql, -1, sys_id)
            '    sql = String.Empty
            '    sql &= "update sf.b_pgd_mes set "
            '    sql &= " finish_count = finish_count + 1 "
            '    sql &= " where sys_id = ? "
            '    rtn = DBacs.ExecuteUpdateSql(sql, -1, dtrt.Rows(0)("b_pgd_mes_sys_id"))
            'End If
            DBacs.CommitTransaction()
        Catch ex As Exception
            rtn = -2
            DBacs.RollbackTransaction()
        End Try
        Return rtn
    End Function

    Public Function update(en As entity_lxjcInfo) As Integer
        Dim sql As String = String.Empty
        Dim rtn As Integer
        DBacs.BeginTransaction()
        Try
            sql &= "UPDATE sf.b_prod_lxjc_info set project_name=?,control_area=?,initial_spec=?,final_spec=?,model=?,
            jl_type=?,experimental_pressure_vlaue = ?,support_model_all_count =?,support_model_no=? ,check_date =? ,
            plane_dimension =?,diameter_mesopore =?,perpendicularity_side_surface=?,
            support_model_height =?,support_model_smooth =?,lateral_deformation =?,residual_after_detection =?,
            horizontal_offset_Measured_value =? ,horizontal_offset_Maximum =?,vertical_stiffness =?,yield_force =?,post_yield_stiffness =?,
            equivalent_stiffness =?,equivalent_damping_ratio =? ,shear_modulus =?,
            vertical_stiffness_standard =?,yield_force_standard =?,post_yield_stiffness_standard =?,
            equivalent_stiffness_standard =?,equivalent_damping_ratio_standard =?,design_area =?,
            vertical_stiffness_result =?,yield_force_result =?,post_yield_stiffness_result =?,equivalent_stiffness_result =?,equivalent_damping_ratio_result =?,
            total_thickness_rubber_layer =?,experimental_temperature =?,judgment_mechanical_properties =? ,
            lead_core_height =?,lead_core_weight =?,lead_core_factory =?,lead_free_conversion =?,judgment_basis =?,detection_judgment =?,
            warehousing_area=? ,mould_number =?,plate_number =?,up_flb_number =?,down_flb_number =?,check_address =?,check_bz =?,note =?,operator=?, update_time = (SELECT CURRENT_TIMESTAMP(6)),status=? "
            sql &= "where prod_id=? and status is null "
            With en
                rtn = DBacs.ExecuteUpdateSql(sql, -1, .project_name, .control_area, .initial_spec, .final_spec, .model,
                .jl_type, .experimental_pressure_vlaue, .support_model_all_count, .support_model_no, .check_date,
                .plane_dimension, .diameter_mesopore, .perpendicularity_side_surface,
                .support_model_height, .support_model_smooth, .lateral_deformation, .residual_after_detection,
                .horizontal_offset_Measured_value, .horizontal_offset_Maximum, .vertical_stiffness, .yield_force, .post_yield_stiffness,
                .equivalent_stiffness, .equivalent_damping_ratio, .shear_modulus,
                .vertical_stiffness_standard, .yield_force_standard, .post_yield_stiffness_standard,
                .equivalent_stiffness_standard, .equivalent_damping_ratio_standard, .design_area,
                .vertical_stiffness_result, .yield_force_result, .post_yield_stiffness_result, .equivalent_stiffness_result, .equivalent_damping_ratio_result,
                .total_thickness_rubber_layer, .experimental_temperature, .judgment_mechanical_properties,
                .lead_core_height, .lead_core_weight, .lead_core_factory, .lead_free_conversion, .judgment_basis, .detection_judgment,
                .warehousing_area, .mould_number, .plate_number, .up_flb_number, .down_flb_number, .check_address, .check_bz, .note, .ope, "0", .prod_id)
            End With
            DBacs.CommitTransaction()
        Catch ex As Exception
            rtn = -2
            DBacs.RollbackTransaction()
        End Try
        Return rtn
    End Function

    Public Function update1(en As entity_lxjcInfo1) As Integer
        Dim sql As String = String.Empty
        Dim rtn As Integer
        DBacs.BeginTransaction()
        Try
            sql &= "UPDATE sf.b_prod_lxjc_info set project_name=?,control_area=?,initial_spec=?,final_spec=?,model=?,
            jl_type=?,experimental_pressure_vlaue = ?,support_model_all_count =?,support_model_no=? ,check_date =? ,
            plane_dimension =?,diameter_mesopore =?,perpendicularity_side_surface=?,
            support_model_height =?,support_model_smooth =?,lateral_deformation =?,residual_after_detection =?,
            horizontal_offset_Measured_value =? ,horizontal_offset_Maximum =?,
            total_thickness_rubber_layer =?,experimental_temperature =?,
            lead_core_height =?,lead_core_weight =?,lead_core_factory =?,lead_free_conversion =?,judgment_basis =?,detection_judgment =?,
            mould_number =?,plate_number =?,up_flb_number =?,down_flb_number =?,check_address =?,check_bz =?,note =?,operator=?, update_time = (SELECT CURRENT_TIMESTAMP(6)) "
            sql &= "where prod_id=? and status is null "
            With en
                rtn = DBacs.ExecuteUpdateSql(sql, -1, .project_name, .control_area, .initial_spec, .final_spec, .model,
                .jl_type, .experimental_pressure_vlaue, .support_model_all_count, .support_model_no, .check_date,
                .plane_dimension, .diameter_mesopore, .perpendicularity_side_surface,
                .support_model_height, .support_model_smooth, .lateral_deformation, .residual_after_detection,
                .horizontal_offset_Measured_value, .horizontal_offset_Maximum,
                .total_thickness_rubber_layer, .experimental_temperature,
                .lead_core_height, .lead_core_weight, .lead_core_factory, .lead_free_conversion, .judgment_basis, .detection_judgment,
                .mould_number, .plate_number, .up_flb_number, .down_flb_number, .check_address, .check_bz, .note, .ope, .prod_id)
            End With
            sql = "select * from sf.b_prod_lxjc_info where prod_id = ? and status is null "
            Dim dtrt As DataTable = DBacs.ExecuteSql(sql, -1, en.prod_id)
            If DBNull.Value.Equals(dtrt.Rows(0)("warehousing_area")) = False Then
                '更新状态
                sql = "update sf.b_prod_lxjc_info set status = ? where prod_id = ? and status is null "
                rtn = DBacs.ExecuteUpdateSql(sql, -1, en.prod_id)
            End If
            DBacs.CommitTransaction()
        Catch ex As Exception
            rtn = -2
            DBacs.RollbackTransaction()
        End Try
        Return rtn
    End Function

    Public Function update2(en As entity_lxjcInfo2) As Integer
        Dim sql As String = String.Empty
        Dim rtn As Integer
        DBacs.BeginTransaction()
        Try
            sql &= "UPDATE sf.b_prod_lxjc_info set project_name=?,initial_spec=?,model=?,
            jl_type=?,vertical_stiffness =?,yield_force =?,post_yield_stiffness =?,
            equivalent_stiffness =?,equivalent_damping_ratio =? ,shear_modulus =?,
            vertical_stiffness_standard =?,yield_force_standard =?,post_yield_stiffness_standard =?,
            equivalent_stiffness_standard =?,equivalent_damping_ratio_standard =?,design_area =?,
            vertical_stiffness_result =?,yield_force_result =?,post_yield_stiffness_result =?,equivalent_stiffness_result =?,equivalent_damping_ratio_result =?,
            total_thickness_rubber_layer =?,judgment_mechanical_properties =? ,
            warehousing_area=? ,mould_number =?,plate_number =?,operator=?, update_time = (SELECT CURRENT_TIMESTAMP(6)) "
            sql &= "where prod_id=? and status is null "
            With en
                rtn = DBacs.ExecuteUpdateSql(sql, -1, .project_name, .initial_spec, .model,
                .jl_type, .vertical_stiffness, .yield_force, .post_yield_stiffness,
                .equivalent_stiffness, .equivalent_damping_ratio, .shear_modulus,
                .vertical_stiffness_standard, .yield_force_standard, .post_yield_stiffness_standard,
                .equivalent_stiffness_standard, .equivalent_damping_ratio_standard, .design_area,
                .vertical_stiffness_result, .yield_force_result, .post_yield_stiffness_result, .equivalent_stiffness_result, .equivalent_damping_ratio_result,
                .total_thickness_rubber_layer, .judgment_mechanical_properties,
                .warehousing_area, .mould_number, .plate_number, .ope, .prod_id)
            End With
            sql = "select * from sf.b_prod_lxjc_info where prod_id = ? and status is null "
            Dim dtrt As DataTable = DBacs.ExecuteSql(sql, -1, en.prod_id)
            If DBNull.Value.Equals(dtrt.Rows(0)("final_spec")) = False Then
                '更新状态
                sql = "update sf.b_prod_lxjc_info set status = ? where prod_id = ? and status is null "
                rtn = DBacs.ExecuteUpdateSql(sql, -1, en.prod_id)
            End If
            DBacs.CommitTransaction()
        Catch ex As Exception
            rtn = -2
            DBacs.RollbackTransaction()
        End Try
        Return rtn
    End Function

    Public Function update(en As entity_lxjcInfo, update_note As String) As Integer
        Dim sql As String = String.Empty
        Dim rtn As Integer
        DBacs.BeginTransaction()
        Try
            sql &= " UPDATE sf.b_prod_lxjc_info  "
            sql &= " SET status = ? "
            'sql &= " SET prod_id= ?,project_name = ?,control_area = ?,initial_spec = ?,final_spec = ?,model = ?,
            'jl_type = ?,experimental_pressure_vlaue = ?,support_model_all_count = ?,support_model_no = ?,check_date = ?,
            'plane_dimension = ?,diameter_mesopore = ?, perpendicularity_side_surface = ?,
            'support_model_height = ?,support_model_smooth = ?,lateral_deformation = ?,residual_after_detection = ?,
            'horizontal_offset_Measured_value = ?,horizontal_offset_Maximum = ?,vertical_stiffness = ?,yield_force = ?,post_yield_stiffness = ?,
            'equivalent_stiffness = ?,equivalent_damping_ratio = ?,shear_modulus = ?,
            'vertical_stiffness_standard = ?,yield_force_standard = ?,post_yield_stiffness_standard = ?,
            'equivalent_stiffness_standard = ?,equivalent_damping_ratio_standard = ?,design_area = ?,
            'vertical_stiffness_result = ?,yield_force_result = ?,post_yield_stiffness_result = ?,equivalent_stiffness_result = ?,equivalent_damping_ratio_result = ?,
            'total_thickness_rubber_layer = ?,experimental_temperature = ?,judgment_mechanical_properties = ?,
            'lead_core_height = ?,lead_core_weight = ?,lead_core_factory = ?,lead_free_conversion = ?,judgment_basis =?,detection_judgment= ? ,
            'warehousing_area = ? ,mould_number = ?,plate_number = ?,up_flb_number = ?,down_flb_number = ?,check_address = ?,check_bz = ?,note= ? ,operator= ?, update_time= (SELECT CURRENT_TIMESTAMP(6))"
            sql &= " WHERE sys_id = ? "
            'With en
            '    rtn = DBacs.ExecuteUpdateSql(sql, -1, .prod_id, .project_name, .control_area, .initial_spec, .final_spec, .model,
            '    .jl_type, .experimental_pressure_vlaue, .support_model_all_count, .support_model_no, .check_date,
            '    .plane_dimension, .diameter_mesopore, .perpendicularity_side_surface,
            '    .support_model_height, .support_model_smooth, .lateral_deformation, .residual_after_detection,
            '    .horizontal_offset_Measured_value, .horizontal_offset_Maximum, .vertical_stiffness, .yield_force, .post_yield_stiffness,
            '    .equivalent_stiffness, .equivalent_damping_ratio, .shear_modulus,
            '    .vertical_stiffness_standard, .yield_force_standard, .post_yield_stiffness_standard,
            '    .equivalent_stiffness_standard, .equivalent_damping_ratio_standard, .design_area,
            '    .vertical_stiffness_result, .yield_force_result, .post_yield_stiffness_result, .equivalent_stiffness_result, .equivalent_damping_ratio_result,
            '    .total_thickness_rubber_layer, .experimental_temperature, .judgment_mechanical_properties,
            '    .lead_core_height, .lead_core_weight, .lead_core_factory, .lead_free_conversion, .judgment_basis, .detection_judgment,
            '    .warehousing_area, .mould_number, .plate_number, .up_flb_number, .down_flb_number, .check_address, .check_bz, .note, .ope, .sys_id)
            'End With
            rtn = DBacs.ExecuteUpdateSql(sql, -1, "1", en.sys_id)
            sql = String.Empty
            sql &= "INSERT INTO sf.b_prod_lxjc_info(factory_id,prod_id,project_name,control_area,initial_spec,final_spec,model,
            jl_type,experimental_pressure_vlaue ,support_model_all_count ,support_model_no ,check_date ,
            plane_dimension,diameter_mesopore,perpendicularity_side_surface,
            support_model_height ,support_model_smooth ,lateral_deformation ,residual_after_detection ,
            horizontal_offset_Measured_value ,horizontal_offset_Maximum ,vertical_stiffness ,yield_force ,post_yield_stiffness ,
            equivalent_stiffness ,equivalent_damping_ratio ,shear_modulus ,
            vertical_stiffness_standard ,yield_force_standard ,post_yield_stiffness_standard ,
            equivalent_stiffness_standard ,equivalent_damping_ratio_standard ,design_area ,
            vertical_stiffness_result ,yield_force_result ,post_yield_stiffness_result ,equivalent_stiffness_result ,equivalent_damping_ratio_result ,
            total_thickness_rubber_layer ,experimental_temperature ,judgment_mechanical_properties ,
            lead_core_height ,lead_core_weight ,lead_core_factory ,lead_free_conversion ,judgment_basis ,detection_judgment ,
            warehousing_area ,mould_number ,plate_number ,up_flb_number ,down_flb_number ,check_address ,check_bz ,note ,operator, update_time,status,b_pgd_mes_sys_id) "
            sql &= "VALUES ( ?, ? ,? , ? , ? , ? , ? ,? , ? , ? , ? , ? ,?, ?, ?, ?, ? , ? , ? , ? , ? ,? , ? , ? ,? , ? , ? ,? , ? , ? ,? , ? , ? ,
                ? , ? , ? , ? , ? ,? , ? , ? ,? , ? , ? , ? , ? ,? ,? , ? , ? ,? , ? , ? , ? , ? ,? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
            With en
                rtn = DBacs.ExecuteUpdateSql(sql, -1, .factory_id, .prod_id, .project_name, .control_area, .initial_spec, .final_spec, .model,
                .jl_type, .experimental_pressure_vlaue, .support_model_all_count, .support_model_no, .check_date,
                .plane_dimension, .diameter_mesopore, .perpendicularity_side_surface,
                .support_model_height, .support_model_smooth, .lateral_deformation, .residual_after_detection,
                .horizontal_offset_Measured_value, .horizontal_offset_Maximum, .vertical_stiffness, .yield_force, .post_yield_stiffness,
                .equivalent_stiffness, .equivalent_damping_ratio, .shear_modulus,
                .vertical_stiffness_standard, .yield_force_standard, .post_yield_stiffness_standard,
                .equivalent_stiffness_standard, .equivalent_damping_ratio_standard, .design_area,
                .vertical_stiffness_result, .yield_force_result, .post_yield_stiffness_result, .equivalent_stiffness_result, .equivalent_damping_ratio_result,
                .total_thickness_rubber_layer, .experimental_temperature, .judgment_mechanical_properties,
                .lead_core_height, .lead_core_weight, .lead_core_factory, .lead_free_conversion, .judgment_basis, .detection_judgment,
                .warehousing_area, .mould_number, .plate_number, .up_flb_number, .down_flb_number, .check_address, .check_bz, .note, .ope, "0", .b_pgd_mes_sys_id)
            End With

            sql = String.Empty
            sql &= "select * from sf.b_prod_lxjc_info where status = '1' order by sys_id desc limit 1  "
            Dim dtrt As DataTable = DBacs.ExecuteSql(sql, -1)
            sql = String.Empty
            sql &= "select * from sf.b_prod_lxjc_info order by sys_id desc limit 1  "
            Dim dtrt1 As DataTable = DBacs.ExecuteSql(sql, -1)
            If dtrt.Rows(0)("prod_id") <> en.prod_id Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "prod_id", "生产编号", dtrt.Rows(0)("prod_id"), en.prod_id, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("project_name") <> en.project_name Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "project_name", "项目名称", dtrt.Rows(0)("project_name"), en.project_name, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("initial_spec") <> en.initial_spec Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "initial_spec", "初始型号", dtrt.Rows(0)("initial_spec"), en.initial_spec, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("final_spec") <> en.final_spec Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "final_spec", "最终型号", dtrt.Rows(0)("final_spec"), en.final_spec, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("model") <> en.model Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "model", "规格", dtrt.Rows(0)("model"), en.model, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("jl_type") <> en.jl_type Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "jl_type", "胶料", dtrt.Rows(0)("jl_type"), en.jl_type, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("experimental_pressure_vlaue") <> en.experimental_pressure_vlaue Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "experimental_pressure_vlaue", "实验压力", dtrt.Rows(0)("experimental_pressure_vlaue"), en.experimental_pressure_vlaue, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("support_model_all_count") <> en.support_model_all_count Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "support_model_all_count", "支座总数", dtrt.Rows(0)("support_model_all_count"), en.support_model_all_count, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("support_model_no") <> en.support_model_no Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "support_model_no", "实验编号", dtrt.Rows(0)("support_model_no"), en.support_model_no, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("check_date") <> en.check_date Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "check_date", "检测时间", dtrt.Rows(0)("check_date"), en.check_date, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("support_model_height") <> en.support_model_height Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "support_model_height", "支座高度", dtrt.Rows(0)("support_model_height"), en.support_model_height, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("support_model_smooth") <> en.support_model_smooth Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "support_model_smooth", "支座平整度", dtrt.Rows(0)("support_model_smooth"), en.support_model_smooth, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("lateral_deformation") <> en.lateral_deformation Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "lateral_deformation", "侧向变形量", dtrt.Rows(0)("lateral_deformation"), en.lateral_deformation, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("residual_after_detection") <> en.residual_after_detection Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "residual_after_detection", "检测后残变", dtrt.Rows(0)("residual_after_detection"), en.residual_after_detection, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("horizontal_offset_measured_value") <> en.horizontal_offset_Measured_value Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "horizontal_offset_measured_value", "水平偏移", dtrt.Rows(0)("horizontal_offset_measured_value"), en.horizontal_offset_Measured_value, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("horizontal_offset_maximum") <> en.horizontal_offset_Maximum Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "horizontal_offset_maximum", "最大偏移", dtrt.Rows(0)("horizontal_offset_maximum"), en.horizontal_offset_Maximum, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If
            If dtrt.Rows(0)("vertical_stiffness") <> en.vertical_stiffness Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "vertical_stiffness", "竖向刚度检测值", dtrt.Rows(0)("vertical_stiffness"), en.vertical_stiffness, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("yield_force") <> en.yield_force Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "yield_force", "屈服力检测值", dtrt.Rows(0)("yield_force"), en.yield_force, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("post_yield_stiffness") <> en.post_yield_stiffness Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "post_yield_stiffness", "屈服后刚度检测值", dtrt.Rows(0)("post_yield_stiffness"), en.post_yield_stiffness, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("equivalent_stiffness") <> en.equivalent_stiffness Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "equivalent_stiffness", "等效刚度检测值", dtrt.Rows(0)("equivalent_stiffness"), en.equivalent_stiffness, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("equivalent_damping_ratio") <> en.equivalent_damping_ratio Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "equivalent_damping_ratio", "等效阻尼比", dtrt.Rows(0)("equivalent_damping_ratio"), en.equivalent_damping_ratio, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("shear_modulus") <> en.shear_modulus Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "shear_modulus", "剪切模量", dtrt.Rows(0)("shear_modulus"), en.shear_modulus, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("vertical_stiffness_standard") <> en.vertical_stiffness_standard Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "vertical_stiffness_standard", "竖向刚度设计值", dtrt.Rows(0)("vertical_stiffness_standard"), en.vertical_stiffness_standard, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("yield_force_standard") <> en.yield_force_standard Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "yield_force_standard", "屈服力设计值", dtrt.Rows(0)("yield_force_standard"), en.yield_force_standard, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("post_yield_stiffness_standard") <> en.post_yield_stiffness_standard Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "post_yield_stiffness_standard", "屈服后刚度设计值", dtrt.Rows(0)("post_yield_stiffness_standard"), en.post_yield_stiffness_standard, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("equivalent_stiffness_standard") <> en.equivalent_stiffness_standard Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "equivalent_stiffness_standard", "等效刚度设计值", dtrt.Rows(0)("equivalent_stiffness_standard"), en.equivalent_stiffness_standard, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("equivalent_damping_ratio_standard") <> en.equivalent_damping_ratio_standard Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "equivalent_damping_ratio_standard", "等效阻尼比设计值", dtrt.Rows(0)("equivalent_damping_ratio_standard"), en.equivalent_damping_ratio_standard, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("design_area") <> en.design_area Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "design_area", "设计区域设计值", dtrt.Rows(0)("design_area"), en.design_area, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("vertical_stiffness_result") <> en.vertical_stiffness_result Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "vertical_stiffness_result", "竖向刚度差异值", dtrt.Rows(0)("vertical_stiffness_result"), en.vertical_stiffness_result, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("yield_force_result") <> en.yield_force_result Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "yield_force_result", "屈服力差异值", dtrt.Rows(0)("yield_force_result"), en.yield_force_result, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("post_yield_stiffness_result") <> en.post_yield_stiffness_result Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "post_yield_stiffness_result", "屈服后刚度差异值", dtrt.Rows(0)("post_yield_stiffness_result"), en.post_yield_stiffness_result, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("equivalent_stiffness_result") <> en.equivalent_stiffness_result Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "equivalent_stiffness_result", "等效刚度差异值", dtrt.Rows(0)("equivalent_stiffness_result"), en.equivalent_stiffness_result, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("equivalent_damping_ratio_result") <> en.equivalent_damping_ratio_result Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "equivalent_damping_ratio_result", "等效阻尼比差异值", dtrt.Rows(0)("equivalent_damping_ratio_result"), en.equivalent_damping_ratio_result, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("total_thickness_rubber_layer") <> en.total_thickness_rubber_layer Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "total_thickness_rubber_layer", "橡胶层总厚度", dtrt.Rows(0)("total_thickness_rubber_layer"), en.total_thickness_rubber_layer, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("experimental_temperature") <> en.experimental_temperature Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "experimental_temperature", "实验温度", dtrt.Rows(0)("experimental_temperature"), en.experimental_temperature, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("judgment_mechanical_properties") <> en.judgment_mechanical_properties Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "judgment_mechanical_properties", "力学性能判定", dtrt.Rows(0)("judgment_mechanical_properties"), en.judgment_mechanical_properties, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("lead_core_height") <> en.lead_core_height Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "lead_core_height", "铅芯高度", dtrt.Rows(0)("lead_core_height"), en.lead_core_height, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("lead_core_weight") <> en.lead_core_weight Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "lead_core_weight", "铅芯重量", dtrt.Rows(0)("lead_core_weight"), en.lead_core_weight, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("lead_core_factory") <> en.lead_core_factory Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "lead_core_factory", "铅芯厂家", dtrt.Rows(0)("lead_core_factory"), en.lead_core_factory, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("lead_free_conversion") <> en.lead_free_conversion Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "lead_free_conversion", "有铅无铅转换", dtrt.Rows(0)("lead_free_conversion"), en.lead_free_conversion, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("judgment_basis") <> en.judgment_basis Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "judgment_basis", "判定依据", dtrt.Rows(0)("judgment_basis"), en.judgment_basis, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("detection_judgment") <> en.detection_judgment Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "detection_judgment", "外观检测判定", dtrt.Rows(0)("detection_judgment"), en.detection_judgment, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("warehousing_area") <> en.warehousing_area Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "warehousing_area", "入库区域", dtrt.Rows(0)("warehousing_area"), en.warehousing_area, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("mould_number") <> en.mould_number Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "mould_number", "模具编号", dtrt.Rows(0)("mould_number"), en.mould_number, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("plate_number") <> en.plate_number Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "plate_number", "平板编号", dtrt.Rows(0)("plate_number"), en.plate_number, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("up_flb_number") <> en.up_flb_number Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "up_flb_number", "上法兰板编号", dtrt.Rows(0)("up_flb_number"), en.up_flb_number, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("down_flb_number") <> en.down_flb_number Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "down_flb_number", "下法兰板编号", dtrt.Rows(0)("down_flb_number"), en.down_flb_number, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("check_address") <> en.check_address Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "check_address", "检测地点", dtrt.Rows(0)("check_address"), en.check_address, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("check_bz") <> en.check_bz Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "check_bz", "检验班组", dtrt.Rows(0)("check_bz"), en.check_bz, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("note") <> en.note Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "note", "备注", dtrt.Rows(0)("note"), en.note, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("control_area") <> en.control_area Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "control_area", "控制区域", dtrt.Rows(0)("control_area"), en.control_area, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("plane_dimension") <> en.plane_dimension Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "plane_dimension", "平面尺寸", dtrt.Rows(0)("plane_dimension"), en.plane_dimension, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("diameter_mesopore") <> en.diameter_mesopore Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "diameter_mesopore", "中孔直径", dtrt.Rows(0)("diameter_mesopore"), en.diameter_mesopore, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If dtrt.Rows(0)("perpendicularity_side_surface") <> en.perpendicularity_side_surface Then
                '执行更新语句
                sql = String.Empty
                sql &= "INSERT INTO sf.b_prod_lxjc_info_update_details(field,field_name,old_value,new_value,oper_date,note,operator,
                        update_time,b_prod_lxjc_info_sys_id,b_prod_lxjc_info_sys_id_old) "
                sql &= "VALUES ( ?, ? ,? ,? , ? , ? , ? ,(SELECT CURRENT_TIMESTAMP(6)),?,?)"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "perpendicularity_side_surface", "侧表面垂直度", dtrt.Rows(0)("perpendicularity_side_surface"), en.perpendicularity_side_surface, Now.ToShortDateString(),
                                             update_note, en.ope, dtrt1.Rows(0)("sys_id"), en.sys_id)
            End If

            If en.judgment_mechanical_properties.Equals("合格") Then
                sql = String.Empty
                sql &= "update sf.b_prod_info set update_time=(SELECT CURRENT_TIMESTAMP(6)),"
                sql &= "status=? "
                sql &= "where factory_id = ? and prod_id = ?"
                rtn = DBacs.ExecuteUpdateSql(sql, -1, "11", g_factory_id, en.prod_id)
            End If
            DBacs.CommitTransaction()
            Return 0
        Catch ex As Exception
            DBacs.RollbackTransaction()
            Return -2
        End Try
        Return rtn
    End Function

    Public Function selectBySysid(_sysid As String) As DataTable
        Dim szSql As String = "select * from sf.b_prod_lxjc_info where factory_id=? and sys_id=?"
        Return DBacs.ExecuteSql(szSql, -1, g_factory_id, _sysid)
    End Function

    Public Function SelectByProdId(prod_id As String) As DataTable
        Dim szSql As String = "select * from sf.b_prod_lxjc_info where factory_id=? and prod_id=? order by update_time desc limit 1"
        Return DBacs.ExecuteSql(szSql, -1, g_factory_id, prod_id)
    End Function

    Public Function selectAll(prod_id As String, steel_seal_no As String, project_name As String,
                              startTime As String, endTime As String) As DataTable
        Dim szSql As String = ""
        szSql &= "select a.*,b.steel_seal_no from sf.b_prod_lxjc_info a left join sf.b_prod_info b on a.prod_id = b.prod_id where a.factory_id=? "
        szSql &= " and a.status = ? "
        If prod_id <> "" Then
            szSql &= " and a.prod_id like ('%" & prod_id & "%')"
        End If
        If steel_seal_no <> "" Then
            szSql &= " and b.steel_seal_no like ('%" & steel_seal_no & "%')"
        End If
        If project_name <> "" Then
            szSql &= " and a.project_name like ('%" & project_name & "%')"
        End If
        If startTime <> "" Then
            szSql &= " and a.update_time >= '" + startTime + " 00:00:00.000'"
        End If
        If endTime <> "" Then
            szSql &= " and a.update_time <= '" + endTime + " 23:59:59.999'"
        End If
        Return DBacs.ExecuteSql(szSql, -1, g_factory_id, "0")
    End Function

    Public Function selectDistinctDetailsBySysid(_sysid As String) As DataTable
        Dim dt As New DataTable()
        dt.Columns.Add("sys_id")
        dt.Columns.Add("oper_date")
        Dim dtemp As DataTable
        Dim szSql As String = ""
        szSql &= "select * from sf.b_prod_lxjc_info_update_details where b_prod_lxjc_info_sys_id=? limit 1"

        dtemp = DBacs.ExecuteSql(szSql, -1, _sysid)
        If dtemp.Rows.Count > 0 Then
            dt.Rows.Add(dtemp.Rows(0)("b_prod_lxjc_info_sys_id"), dtemp.Rows(0)("oper_date"))
        End If
        While dtemp.Rows.Count > 0
            szSql = ""
            szSql &= "select * from sf.b_prod_lxjc_info_update_details where b_prod_lxjc_info_sys_id=? limit 1"

            dtemp = DBacs.ExecuteSql(szSql, -1, dtemp.Rows(0)("b_prod_lxjc_info_sys_id_old"))
            If dtemp.Rows.Count > 0 Then
                dt.Rows.Add(dtemp.Rows(0)("b_prod_lxjc_info_sys_id"), dtemp.Rows(0)("oper_date"))
            End If
        End While


        If IsNothing(dt) Then
            selectDistinctDetailsBySysid = New DataTable
        Else
            selectDistinctDetailsBySysid = dt
        End If
    End Function

    Public Function selectDetailsBySysid(_sysid As String) As DataTable
        Dim szSql As String = ""
        szSql &= "select * from sf.b_prod_lxjc_info_update_details where b_prod_lxjc_info_sys_id=?"
        Return DBacs.ExecuteSql(szSql, -1, _sysid)
    End Function

End Class
